home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #3 / Commodore_Disk_User_Vol.4_3_1991_-.d64 / save code (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  544b  |  18 lines
  1. 0 fort=0to20:geta$:next
  2. 1 r=r+1:ifr=1thenload"multiplexor",8,1
  3. 10 print"[147]";
  4. 20 poke53280,0:poke53281,0
  5. 30 print"[147][151]             the code saver             "
  6. 31 input"press return when correct disk is in    drive[144]";a$
  7. 40 input"[151]input name to save code  multiplexor[157][157][157][157][157][157][157][157][157][157][157][157][157]";n$
  8. 50 input"input device you wish to save to  8[157][157][157]";d
  9. 60 input"is the above o.k. (y/n)";a$
  10. 61 ifa$="n"then30
  11. 62 ifd<>1thenopen1,d,0,n$:get#1,a$:ifa$="[199]"then70
  12. 63 print"file exists. do i replace (y/n)"
  13. 64 inputa$
  14. 65 ifa$="n"then30
  15. 70 close1:sys57812n$,d
  16. 80 poke193,0:poke194,192:poke174,0:poke175,199
  17. 90 sys62957:s$="menu":load"rtu",8,1
  18.